home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / DS.LSP < prev    next >
Lisp/Scheme  |  1995-01-20  |  422b  |  15 lines
  1. ;Gives true and scaled distances
  2. ;Bob Zelna
  3.  
  4. (DEFUN C:DS ()
  5.   (princ"\nPick the two points for which you want")
  6.   (princ"\nthe true distance and the scaled distance.")
  7.   (setq pt1 (getpoint"\nSelect first pt:")
  8.         dst (getdist pt1 "\n...second pt:")
  9.         dd (* (getvar"DIMLFAC") dst)
  10.   )
  11.   (princ"\nThe true distance is ")(princ dst)
  12.   (princ"\n...and the scaled distance is ")(princ dd)
  13.   (prin1)
  14. )
  15.